Dim h as N
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oGantt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\card.png`" // oGantt.HTMLPicture("p1") = "c:\exontrol\images\card.png"
oGantt.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\sun.png`" // oGantt.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
oGantt.AutoDrag = 11
oGantt.LinesAtRoot = 0
oGantt.HasLines = 2
oGantt.ShowFocusRect = .f.
oGantt.DefaultItemHeight = 26
oGantt.Columns.Add("Task")
var_Chart = oGantt.Chart
	var_Chart.ShowNonworkingDates = .f.
	var_Chart.FirstVisibleDate = {12/29/2000}
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Chart.LevelCount = 2
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Color = 16777216
		var_Bar.Height = 18
var_Items = oGantt.Items
	h = var_Items.AddItem("<img>p1:32</img>Group 1")
	' var_Items.CellCaptionFormat(h,0) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaptionFormat(h,0) = 1"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemBold(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBold(h) = True"

	h1 = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(h2,"Task",{01/05/2001},{01/07/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "L1"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L1`,12) = `L1`"

	h3 = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(h3,"Task",{01/08/2001},{01/10/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "L2"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L2`,12) = `L2`"

	h = var_Items.AddItem("<img>p2:32</img>Group 2")
	' var_Items.CellCaptionFormat(h,0) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaptionFormat(h,0) = 1"

	' var_Items.ItemBold(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBold(h) = True"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	h1 = var_Items.InsertItem(h,,"Task")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	' var_Items.ExpandItem(0) = .t.
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.ExpandItem(0) = True"

oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim rs as P
Dim var_Chart as local
Dim var_Columns as local
Dim var_Columns1 as local
Dim var_HTMLPicture as 
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Template = "HTMLPicture(`p1`) = `c:\exontrol\images\card.png`" // oGantt.HTMLPicture("p1") = "c:\exontrol\images\card.png"
oGantt.Template = "HTMLPicture(`p2`) = `c:\exontrol\images\sun.png`" // oGantt.HTMLPicture("p2") = "c:\exontrol\images\sun.png"
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_HTMLPicture = oGantt.HTMLPicture("aka1")
oGantt.HeaderHeight = 24
oGantt.DefaultItemHeight = 48
oGantt.DrawGridLines = -2
oGantt.GridLineColor = 15790320
oGantt.SelBackMode = 1
oGantt.ColumnAutoResize = .f.
oGantt.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB",3,3)
oGantt.DataSource = rs
' oGantt.Columns.Item(0).Def(17) = 1
var_Columns = oGantt.Columns.Item(0)
oGantt.TemplateDef = "dim var_Columns"
oGantt.TemplateDef = var_Columns
oGantt.Template = "var_Columns.Def(17) = 1"

oGantt.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
oGantt.Columns.Item(0).Width = 112
' oGantt.Columns.Item(1).Def(0) = 1
var_Columns1 = oGantt.Columns.Item(1)
oGantt.TemplateDef = "dim var_Columns1"
oGantt.TemplateDef = var_Columns1
oGantt.Template = "var_Columns1.Def(0) = 1"

oGantt.Columns.Item(2).LevelKey = "1"
oGantt.Columns.Item(3).LevelKey = "1"
oGantt.Columns.Item(4).LevelKey = "1"
oGantt.AutoDrag = 10
oGantt.SingleSel = .f.
var_Items = oGantt.Items
	h = var_Items.ItemByIndex(1)
	' var_Items.SelectItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SelectItem(h) = True"

	h = var_Items.ItemByIndex(2)
	' var_Items.SelectItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SelectItem(h) = True"

	h = var_Items.ItemByIndex(3)
	' var_Items.SelectItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SelectItem(h) = True"

	' var_Items.LockedItemCount(2) = 1
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.LockedItemCount(2) = 1"

	h = var_Items.LockedItem(2,0)
	' var_Items.CellCaption(h,1) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ..."
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaption(h,1) = `<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...`"

	' var_Items.CellSingleLine(h,1) = .f.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellSingleLine(h,1) = False"

	' var_Items.CellCaptionFormat(h,1) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaptionFormat(h,1) = 1"

	' var_Items.CellHAlignment(h,1) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellHAlignment(h,1) = 1"

	' var_Items.ItemDivider(h) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 1"

	' var_Items.ItemDividerLineAlignment(h) = 2
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDividerLineAlignment(h) = 2"

oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim rs as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.ColumnAutoResize = .f.
oGantt.ContinueColumnScroll = .f.
rs = OLE.Create("ADOR.Recordset")
	rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExGantt\Sample\Access\SAMPLE.MDB",3,3)
oGantt.DataSource = rs
oGantt.Columns.Item(2).LevelKey = "1"
oGantt.Columns.Item(3).LevelKey = "1"
oGantt.Columns.Item(4).LevelKey = "1"
oGantt.AutoDrag = 9
oGantt.SingleSel = .f.
var_Items = oGantt.Items
	h = var_Items.ItemByIndex(1)
	' var_Items.SelectItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SelectItem(h) = True"

	h = var_Items.ItemByIndex(3)
	' var_Items.SelectItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SelectItem(h) = True"

	h = var_Items.ItemByIndex(4)
	' var_Items.SelectItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SelectItem(h) = True"

	h = var_Items.ItemByIndex(5)
	' var_Items.SelectItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SelectItem(h) = True"

	' var_Items.LockedItemCount(2) = 1
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.LockedItemCount(2) = 1"

	h = var_Items.LockedItem(2,0)
	' var_Items.CellCaption(h,0) = "<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ..."
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaption(h,0) = `<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...`"

	' var_Items.CellSingleLine(h,0) = .f.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellSingleLine(h,0) = False"

	' var_Items.CellCaptionFormat(h,0) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaptionFormat(h,0) = 1"

	' var_Items.CellHAlignment(h,0) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellHAlignment(h,0) = 1"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 2
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDividerLineAlignment(h) = 2"

oGantt.EndUpdate()

Dim h as N
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.AutoDrag = 3
oGantt.LinesAtRoot = 0
oGantt.HasLines = 1
oGantt.HasButtons = 3
oGantt.ShowFocusRect = .f.
oGantt.SelBackMode = 1
oGantt.Columns.Add("Task")
var_Chart = oGantt.Chart
	var_Chart.ShowNonworkingDates = .f.
	var_Chart.FirstVisibleDate = {12/29/2000}
	' var_Chart.PaneWidth(.f.) = 128
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 128"

	var_Chart.LevelCount = 2
	var_Chart.Bars.Item("Task").Color = 16777216
var_Items = oGantt.Items
	h = var_Items.AddItem("Group 1")
	' var_Items.ItemBold(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBold(h) = True"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	h1 = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.InsertItem(h1,,"Task 2")
	var_Items.AddBar(h2,"Task",{01/15/2001},{01/17/2001},"K4")
	h2 = var_Items.InsertItem(h1,,"Task 3")
	var_Items.AddBar(h2,"Task",{01/05/2001},{01/07/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "L1"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L1`,12) = `L1`"

	h3 = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(h3,"Task",{01/08/2001},{01/10/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "L2"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L2`,12) = `L2`"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	' var_Items.ExpandItem(h1) = .t.
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.ExpandItem(h1) = True"

	h = var_Items.AddItem("Group 2")
	' var_Items.ItemBold(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBold(h) = True"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.LockedItemCount(2) = 1
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.LockedItemCount(2) = 1"

	h = var_Items.LockedItem(2,0)
	' var_Items.CellCaption(h,0) = "Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the indentation."
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaption(h,0) = `Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the indentation.`"

	' var_Items.CellSingleLine(h,0) = .f.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellSingleLine(h,0) = False"

	' var_Items.CellCaptionFormat(h,0) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaptionFormat(h,0) = 1"

oGantt.EndUpdate()

Dim h as N
Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.AutoDrag = 2
oGantt.LinesAtRoot = 0
oGantt.HasLines = 2
oGantt.ShowFocusRect = .f.
oGantt.Columns.Add("Task")
var_Chart = oGantt.Chart
	var_Chart.ShowNonworkingDates = .f.
	var_Chart.FirstVisibleDate = {12/29/2000}
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Chart.LevelCount = 2
	var_Chart.Bars.Item("Task").Color = 16777216
var_Items = oGantt.Items
	h = var_Items.AddItem("Group 1")
	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemBold(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBold(h) = True"

	h1 = var_Items.InsertItem(h,,"Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.InsertItem(h,,"Task 2")
	var_Items.AddBar(h2,"Task",{01/05/2001},{01/07/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "L1"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L1`,12) = `L1`"

	h3 = var_Items.InsertItem(h,,"Task 3")
	var_Items.AddBar(h3,"Task",{01/08/2001},{01/10/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "L2"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L2`,12) = `L2`"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Group 2")
	' var_Items.ItemBold(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBold(h) = True"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

oGantt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.AutoDrag = 1
oGantt.Columns.Add("Task")
var_Chart = oGantt.Chart
	var_Chart.ShowNonworkingDates = .f.
	var_Chart.FirstVisibleDate = {12/29/2000}
	' var_Chart.PaneWidth(.f.) = 64
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 64"

	var_Chart.LevelCount = 2
	var_Chart.Bars.Item("Task").Color = 16777216
var_Items = oGantt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/05/2001},{01/07/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "L1"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L1`,12) = `L1`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/08/2001},{01/10/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "L2"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L2`,12) = `L2`"

oGantt.EndUpdate()

Dim h1 as N
Dim h2 as N
Dim h3 as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.Columns.Add("Task")
oGantt.BackColorHeader = 16777216
var_Chart = oGantt.Chart
	var_Chart.BackColorLevelHeader = 16777216
	var_Chart.FirstVisibleDate = {12/29/2000}
	' var_Chart.PaneWidth(.f.) = 64
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 64"

	var_Chart.LevelCount = 2
	var_Chart.Bars.Item("Task").Color = 16777216
var_Items = oGantt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"Task",{01/02/2001},{01/04/2001},"K1")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/05/2001},{01/07/2001},"K2")
	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "L1"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L1`,12) = `L1`"

	h3 = var_Items.AddItem("Task 3")
	var_Items.AddBar(h3,"Task",{01/08/2001},{01/10/2001},"K3")
	var_Items.AddLink("L2",h2,"K2",h3,"K3")
	' var_Items.Link("L2",12) = "L2"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L2`,12) = `L2`"

oGantt.VisualAppearance.RenderType = -2147483393
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Item")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.Filter = "Child 1"
	var_Column.FilterType = 240
var_Column1 = oGantt.Columns.Add("Date")
	var_Column1.DisplayFilterButton = .t.
	var_Column1.DisplayFilterPattern = .f.
	var_Column1.DisplayFilterDate = .t.
	var_Column1.FilterList = 9474 'exShowExclude + exShowFocusItem + exShowCheckBox + exNoItems
	var_Column1.Filter = {12/28/2010}
	var_Column1.FilterType = 4
oGantt.FilterCriteria = "%0 or %1"
oGantt.Template = "Description(23) = `<font ;18><fgcolor=FF0000>or</fgcolor></font>`" // oGantt.Description(23) = "<font ;18><fgcolor=FF0000>or</fgcolor></font>"
oGantt.Template = "Description(11) = `<font ;18><fgcolor=FF0000>and</fgcolor></font>`" // oGantt.Description(11) = "<font ;18><fgcolor=FF0000>and</fgcolor></font>"
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1"),1) = {12/27/2010}
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1`),1) = #12/27/2010#"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2"),1) = {12/28/2010}
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2`),1) = #12/28/2010#"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1"),1) = {12/29/2010}
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1`),1) = #12/29/2010#"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2"),1) = {12/30/2010}
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2`),1) = #12/30/2010#"

oGantt.ApplyFilter()
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_Column = oGantt.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.DisplayFilterDate = .t.
	var_Column.FilterList = 9474 'exShowExclude + exShowFocusItem + exShowCheckBox + exNoItems
var_Items = oGantt.Items
	var_Items.AddItem({12/27/2010})
	var_Items.AddItem({12/28/2010})
	var_Items.AddItem({12/29/2010})
	var_Items.AddItem({12/30/2010})
	var_Items.AddItem({12/31/2010})
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_Column = oGantt.Columns.Add("Date")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.DisplayFilterDate = .t.
	var_Column.FilterList = 1282 'exShowFocusItem + exShowCheckBox + exNoItems
var_Items = oGantt.Items
	var_Items.AddItem({12/27/2010})
	var_Items.AddItem({12/28/2010})
	var_Items.AddItem({12/29/2010})
	var_Items.AddItem({12/30/2010})
	var_Items.AddItem({12/31/2010})
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_Column = oGantt.Columns.Add("Dates")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .t.
	var_Column.DisplayFilterDate = .t.
	var_Column.FilterList = 1280 'exShowFocusItem + exShowCheckBox
	var_Column.Filter = "to 12/27/2010"
	var_Column.FilterType = 4
var_Items = oGantt.Items
	var_Items.AddItem({12/27/2010})
	var_Items.AddItem({12/28/2010})
	var_Items.AddItem({12/29/2010})
	var_Items.AddItem({12/30/2010})
	var_Items.AddItem({12/31/2010})
oGantt.ApplyFilter()
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_Column = oGantt.Columns.Add("Dates")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .t.
	var_Column.DisplayFilterDate = .t.
	var_Column.FilterList = 1026 'exShowFocusItem + exNoItems
	var_Column.Filter = "to 12/27/2010"
	var_Column.FilterType = 4
var_Items = oGantt.Items
	var_Items.AddItem({12/27/2010})
	var_Items.AddItem({12/28/2010})
	var_Items.AddItem({12/29/2010})
	var_Items.AddItem({12/30/2010})
	var_Items.AddItem({12/31/2010})
oGantt.ApplyFilter()
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_Column = oGantt.Columns.Add("Dates")
	var_Column.SortType = 2
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .t.
	var_Column.DisplayFilterDate = .t.
	var_Column.FilterList = 1026 'exShowFocusItem + exNoItems
var_Items = oGantt.Items
	var_Items.AddItem({12/27/2010})
	var_Items.AddItem({12/28/2010})
	var_Items.AddItem({12/29/2010})
	var_Items.AddItem({12/30/2010})
	var_Items.AddItem({12/31/2010})
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
oGantt.Template = "Description(25) = `Leaving out`" // oGantt.Description(25) = "Leaving out"
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 9472 'exShowExclude + exShowFocusItem + exShowCheckBox
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 1280 'exShowFocusItem + exShowCheckBox
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	' var_Items.SelectItem(var_Items.InsertItem(h,,"Child 2")) = .t.
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.SelectItem(InsertItem(h,,`Child 2`)) = True"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 16386 'exShowBlanks + exNoItems
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 16640 'exShowBlanks + exShowCheckBox
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 256
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .f.
	var_Column.FilterList = 128
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
oGantt.Template = "Description(0) = ``" // oGantt.Description(0) = ""
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .t.
	var_Column.FilterList = 2
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.LinesAtRoot = -1
var_Column = oGantt.Columns.Add("Items")
	var_Column.DisplayFilterButton = .t.
	var_Column.DisplayFilterPattern = .t.
	var_Column.FilterList = 2
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.LinesAtRoot = 5
oGantt.Indent = 12
oGantt.HasLines = 2
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.LinesAtRoot = 1
oGantt.Indent = 12
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.LinesAtRoot = 5
oGantt.Indent = 12
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.LinesAtRoot = 4
oGantt.Indent = 12
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.LinesAtRoot = 3
oGantt.Indent = 12
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.LinesAtRoot = 2
oGantt.Indent = 12
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(var_Items.InsertItem(h,,"Child 2"),,"SubChild 2")
	var_Items.InsertItem(h,,"Child 3")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Columns.Add("Def")
oGantt.HotBackColor = 8388608
oGantt.HotForeColor = 16777215
var_Items = oGantt.Items
	var_Items.AddItem("Item A")
	var_Items.AddItem("Item B")
	var_Items.AddItem("Item C")
oGantt.EndUpdate()

Dim h as N
Dim h1 as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Columns as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.HasLines = 0
oGantt.ScrollBySingleLine = .t.
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_Columns = oGantt.Columns
	var_Columns.Add("Name")
	var_Columns.Add("A")
	var_Columns.Add("B")
	var_Columns.Add("C")
var_Items = oGantt.Items
	h = var_Items.AddItem("Group 1")
	' var_Items.CellHAlignment(h,0) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellHAlignment(h,0) = 1"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 3
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDividerLineAlignment(h) = 3"

	' var_Items.ItemHeight(h) = 24
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemHeight(h) = 24"

	' var_Items.SortableItem(h) = .f.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SortableItem(h) = False"

	h1 = var_Items.InsertItem(h,,"Child 1")
	' var_Items.CellCaption(h1,1) = 1
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,1) = 1"

	' var_Items.CellCaption(h1,2) = 2
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,2) = 2"

	' var_Items.CellCaption(h1,3) = 3
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,3) = 3"

	h1 = var_Items.InsertItem(h,,"Child 2")
	' var_Items.CellCaption(h1,1) = 4
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,1) = 4"

	' var_Items.CellCaption(h1,2) = 5
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,2) = 5"

	' var_Items.CellCaption(h1,3) = 6
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,3) = 6"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

	h = var_Items.AddItem("Group 2")
	' var_Items.CellHAlignment(h,0) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellHAlignment(h,0) = 1"

	' var_Items.ItemDivider(h) = 0
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDivider(h) = 0"

	' var_Items.ItemDividerLineAlignment(h) = 3
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemDividerLineAlignment(h) = 3"

	' var_Items.ItemHeight(h) = 24
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemHeight(h) = 24"

	' var_Items.SortableItem(h) = .f.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.SortableItem(h) = False"

	h1 = var_Items.InsertItem(h,,"Child 1")
	' var_Items.CellCaption(h1,1) = 1
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,1) = 1"

	' var_Items.CellCaption(h1,2) = 2
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,2) = 2"

	' var_Items.CellCaption(h1,3) = 3
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,3) = 3"

	h1 = var_Items.InsertItem(h,,"Child 2")
	' var_Items.CellCaption(h1,1) = 4
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,1) = 4"

	' var_Items.CellCaption(h1,2) = 5
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,2) = 5"

	' var_Items.CellCaption(h1,3) = 6
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.CellCaption(h1,3) = 6"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim oGantt as P
Dim var_Items as P
Dim var_Items1 as local

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.LinesAtRoot = -1
oGantt.Columns.Add("Items")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root 1")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	h = var_Items.AddItem("Root 2")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(0) = .t.
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.ExpandItem(0) = True"

oGantt.EndUpdate()
oGantt.DefaultItemHeight = 12
' oGantt.Items.ItemHeight(0) = 12
var_Items1 = oGantt.Items
oGantt.TemplateDef = "dim var_Items1"
oGantt.TemplateDef = var_Items1
oGantt.Template = "var_Items1.ItemHeight(0) = 12"

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.Columns.Add("Value")
oGantt.Columns.Add("FormatCell")
var_Items = oGantt.Items
	h = var_Items.AddItem(1)
	' var_Items.CellCaption(h,1) = 12
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaption(h,1) = 12"

	' var_Items.FormatCell(h,1) = "currency(value)"
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.FormatCell(h,1) = `currency(value)`"

	h = var_Items.AddItem({01/01/2001})
	' var_Items.CellCaption(h,1) = {01/01/2001}
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaption(h,1) = #1/1/2001#"

	' var_Items.CellCaptionFormat(h,1) = 1
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaptionFormat(h,1) = 1"

	' var_Items.FormatCell(h,1) = "longdate(value) replace '2001' with '<b>2001</b>'"
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.FormatCell(h,1) = `longdate(value) replace '2001' with '<b>2001</b>'`"

oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.MarkSearchColumn = .f.
var_Columns = oGantt.Columns
	var_Columns.Add("Name")
	var_Column = var_Columns.Add("Values")
		var_Column.SortType = 1
		var_Column.AllowSizing = .f.
		var_Column.Width = 64
		var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
		' var_Column.Def(17) = 1
		oGantt.TemplateDef = "dim var_Column"
		oGantt.TemplateDef = var_Column
		oGantt.Template = "var_Column.Def(17) = 1"

var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	' var_Items.FormatCell(h,1) = "'<none>'"
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.FormatCell(h,1) = `'<none>'`"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1"),1) = 10
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1`),1) = 10"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2"),1) = 15
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2`),1) = 15"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 3"),1) = 25
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 3`),1) = 25"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Columns as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.MarkSearchColumn = .f.
var_Columns = oGantt.Columns
	var_Columns.Add("Name")
	var_Column = var_Columns.Add("Values")
		var_Column.SortType = 1
		var_Column.AllowSizing = .f.
		var_Column.Width = 64
		var_Column.FormatColumn = "((0:=dbl(value)) < 10? '<fgcolor=808080><font ;7>' :'<b>') + currency(=:0)"
		' var_Column.Def(17) = 1
		oGantt.TemplateDef = "dim var_Column"
		oGantt.TemplateDef = var_Column
		oGantt.Template = "var_Column.Def(17) = 1"

var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	' var_Items.FormatCell(h,1) = " "
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.FormatCell(h,1) = ` `"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 1"),1) = 10
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 1`),1) = 10"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 2"),1) = 15
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 2`),1) = 15"

	' var_Items.CellCaption(var_Items.InsertItem(h,,"Child 3"),1) = 25
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(InsertItem(h,,`Child 3`),1) = 25"

	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

oGantt.EndUpdate()

Dim oGantt as P
Dim var_Columns as P
Dim var_ConditionalFormat as P
Dim var_ConditionalFormat1 as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_ConditionalFormat = oGantt.ConditionalFormats.Add("1","K1")
	var_ConditionalFormat.BackColor = 255
	var_ConditionalFormat.ApplyTo = 1 '1 + 
var_ConditionalFormat1 = oGantt.ConditionalFormats.Add("1","K2")
	var_ConditionalFormat1.BackColor = 255
	var_ConditionalFormat1.ApplyTo = 2 '2 + 
oGantt.MarkSearchColumn = .f.
oGantt.DrawGridLines = -2
var_Columns = oGantt.Columns
	var_Columns.Add("Column 1")
	var_Columns.Add("Column 2")
	var_Columns.Add("Column 3")
var_Items = oGantt.Items
	var_Items.AddItem()
	var_Items.AddItem()
	var_Items.AddItem()
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.BackColorAlternate = 15790320
oGantt.Columns.Add("Names")
var_Items = oGantt.Items
	var_Items.AddItem("Mantel")
	var_Items.AddItem("Mechanik")
	var_Items.AddItem("Motor")
	var_Items.AddItem("Murks")
	var_Items.AddItem("Märchen")
	var_Items.AddItem("Möhren")
	var_Items.AddItem("Mühle")
oGantt.Columns.Item(0).SortOrder = 1
oGantt.EndUpdate()
? oGantt.GetItems(1) 

Dim oGantt as P
Dim var_Column as local
Dim var_Column1 as local

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oGantt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oGantt.HeaderHeight = 48
' oGantt.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
var_Column = oGantt.Columns.Add("DefaultSize")
oGantt.TemplateDef = "dim var_Column"
oGantt.TemplateDef = var_Column
oGantt.Template = "var_Column.HTMLCaption = `Default-Size <img>pic1</img> Picture`"

' oGantt.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
var_Column1 = oGantt.Columns.Add("CustomSize")
oGantt.TemplateDef = "dim var_Column1"
oGantt.TemplateDef = var_Column1
oGantt.Template = "var_Column1.HTMLCaption = `Custom-Size <img>pic1:16</img> Picture`"

oGantt.EndUpdate()

Dim oGantt as P
Dim var_Column as P
Dim var_ConditionalFormat as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.MarkSearchColumn = .f.
var_ConditionalFormat = oGantt.ConditionalFormats.Add("1")
	var_ConditionalFormat.Bold = .t.
	var_ConditionalFormat.ForeColor = 255
	var_ConditionalFormat.ApplyTo = 1 '1 + 
oGantt.Columns.Add("C1")
var_Column = oGantt.Columns.Add("C2")
	var_Column.HeaderBold = .t.
	var_Column.HTMLCaption = "<fgcolor=FF0000>C2"
var_Items = oGantt.Items
	' var_Items.CellCaption(var_Items.AddItem(10),1) = 11
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(10),1) = 11"

	' var_Items.CellCaption(var_Items.AddItem(12),1) = 13
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(12),1) = 13"

oGantt.EndUpdate()

' Fired after cell's state has been changed.
function CellStateChanged as v (Item  as  OLE::Exontrol.Gantt.1::HITEM,ColIndex  as  N)
	Dim var_Items as local
	oGantt = topparent:CONTROL_ACTIVEX1.activex
	' oGantt.Items.SelectItem(Item) = .t.
	var_Items = oGantt.Items
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.SelectItem(Item) = True"

end function

Dim oGantt as P
Dim var_Column as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
' oGantt.Columns.Add("Check").Def(0) = .t.
var_Column = oGantt.Columns.Add("Check")
oGantt.TemplateDef = "dim var_Column"
oGantt.TemplateDef = var_Column
oGantt.Template = "var_Column.Def(0) = True"

var_Items = oGantt.Items
	var_Items.AddItem(0)
	var_Items.AddItem(1)
	var_Items.AddItem(2)
	var_Items.AddItem(3)

' Occurs after a new Item has been inserted to Items collection.
function AddItem as v (Item  as  OLE::Exontrol.Gantt.1::HITEM)
	Dim var_Items as local
	Dim var_Items1 as local
	oGantt = topparent:CONTROL_ACTIVEX1.activex
	' oGantt.Items.ItemMinHeight(Item) = 18
	var_Items = oGantt.Items
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.ItemMinHeight(Item) = 18"
	' oGantt.Items.ItemMaxHeight(Item) = 72
	var_Items1 = oGantt.Items
	oGantt.TemplateDef = "dim var_Items1"
	oGantt.TemplateDef = var_Items1
	oGantt.Template = "var_Items1.ItemMaxHeight(Item) = 72"

end function

Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.ItemsAllowSizing = -1
oGantt.ScrollBySingleLine = .f.
oGantt.BackColorAlternate = 15790320
oGantt.Columns.Add("Names")
var_Items = oGantt.Items
	var_Items.AddItem("Mantel")
	var_Items.AddItem("Mechanik")
	var_Items.AddItem("Motor")
	var_Items.AddItem("Murks")
	var_Items.AddItem("Märchen")
	var_Items.AddItem("Möhren")
	var_Items.AddItem("Mühle")
oGantt.Columns.Item(0).SortOrder = 1
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.LinesAtRoot = -1
oGantt.Columns.Add("Def")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	var_Items.InsertItem(h,,"Child 1")
	var_Items.InsertItem(h,,"Child 2")
oGantt.PutItems(oGantt.GetItems(-1))

Dim oGantt as P
Dim var_Column as local

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\zipdisk.gif`" // oGantt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oGantt.ToolTipDelay = 1
' oGantt.Columns.Add("tootip").ToolTip = "<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>"
var_Column = oGantt.Columns.Add("tootip")
oGantt.TemplateDef = "dim var_Column"
oGantt.TemplateDef = var_Column
oGantt.Template = "var_Column.ToolTip = `<br><font Tahoma;10>This</font> is a <b>multi-lines</b> tooltip assigned to a column. The tooltip supports built-in HTML tags, icons and pictures.<br><br><br><img>pic1</img> picture ... <br><br>`"

Dim h1 as N
Dim h2 as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
var_Chart = oGantt.Chart
	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = {12/26/2000}
	' var_Chart.PaneWidth(.f.) = 32
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 32"

var_Items = oGantt.Items
	h1 = var_Items.AddItem("Task 1")
	var_Items.AddBar(h1,"",{01/01/2001},{01/05/2001},"K1","some <fgcolor=FF0000>red</fgcolor> text")
	' var_Items.ItemBar(h1,"K1",10) = .f.
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.ItemBar(h1,`K1`,10) = False"

	' var_Items.ItemBar(h1,"K1",6) = "And here goes the <b>tooltip</b> of the text. "
	oGantt.TemplateDef = "dim var_Items,h1"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h1
	oGantt.Template = "var_Items.ItemBar(h1,`K1`,6) = `And here goes the <b>tooltip</b> of the text. `"

	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	var_Items.AddItem("")
	h2 = var_Items.AddItem("Task 2")
	var_Items.AddBar(h2,"Task",{01/05/2001},{01/07/2001},"K2")
	' var_Items.ItemBar(h2,"K2",6) = "And here goes the <b>tooltip</b> of the bar. "
	oGantt.TemplateDef = "dim var_Items,h2"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h2
	oGantt.Template = "var_Items.ItemBar(h2,`K2`,6) = `And here goes the <b>tooltip</b> of the bar. `"

	var_Items.AddLink("L1",h1,"K1",h2,"K2")
	' var_Items.Link("L1",12) = "L<b>inke</b>d to a bar"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L1`,12) = `L<b>inke</b>d to a bar`"

	' var_Items.Link("L1",13) = "And here goes the <b>tooltip</b> of the link. "
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.Link(`L1`,13) = `And here goes the <b>tooltip</b> of the link. `"

Dim oGantt as P
Dim var_Chart as P
Dim var_Chart1 as P
Dim var_Level as local
Dim var_Level1 as local
Dim var_Level2 as local
Dim var_Level3 as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	' var_Chart.Label(16) = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(16) = `<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>`"

	' var_Chart.Label(256) = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(256) = `<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256`"

	' var_Chart.Label(4096) = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(4096) = `<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096`"

	' var_Chart.Label(65536) = "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(65536) = `<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"

	' var_Chart.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(1048576) = `<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`"

	' var_Chart.Label(16777216) = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`"

	' var_Chart.LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(16) = `<%loc_mmmm%>/<%yyyy%>`"

	' var_Chart.LabelToolTip(256) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(256) = `<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>`"

	' var_Chart.LabelToolTip(4096) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(4096) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>`"

	' var_Chart.LabelToolTip(65536) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(65536) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>`"

	' var_Chart.LabelToolTip(1048576) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(1048576) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`"

	' var_Chart.LabelToolTip(16777216) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(16777216) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`"

var_Chart1 = oGantt.Chart
	' var_Chart1.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart1"
	oGantt.TemplateDef = var_Chart1
	oGantt.Template = "var_Chart1.PaneWidth(False) = 0"

	var_Chart1.FirstVisibleDate = {01/01/2001}
	var_Chart1.LevelCount = 4
	' var_Chart1.Level(0).Label = 4096
	var_Level = var_Chart1.Level(0)
	oGantt.TemplateDef = "dim var_Level"
	oGantt.TemplateDef = var_Level
	oGantt.Template = "var_Level.Label = 4096"

	' var_Chart1.Level(1).Label = 65536
	var_Level1 = var_Chart1.Level(1)
	oGantt.TemplateDef = "dim var_Level1"
	oGantt.TemplateDef = var_Level1
	oGantt.Template = "var_Level1.Label = 65536"

	' var_Chart1.Level(2).Label = 1048576
	var_Level2 = var_Chart1.Level(2)
	oGantt.TemplateDef = "dim var_Level2"
	oGantt.TemplateDef = var_Level2
	oGantt.Template = "var_Level2.Label = 1048576"

	var_Level3 = var_Chart1.Level(3)
		var_Level3.Count = 15
		var_Level3.Label = 16777216
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as P
Dim var_Chart1 as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	' var_Chart.Label(16) = "<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(16) = `<|><%loc_m1%><|><%loc_m2%><|><%loc_m3%><|><%loc_mmmm%><|><%loc_m3%> '<%yy%><|><%loc_mmmm%> <%yyyy%>`"

	' var_Chart.Label(256) = "<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(256) = `<|><%ww%><|><%loc_m3%> <%d%>, '<%yy%><r><%ww%><|><%loc_mmmm%> <%d%>, <%yyyy%><r><%ww%><||><||>256`"

	' var_Chart.Label(4096) = "<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(4096) = `<|><%loc_d1%><|><%loc_d2%><|><%loc_d3%><|><%loc_dddd%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%><||><||>4096`"

	' var_Chart.Label(65536) = "<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(65536) = `<|><%hh%><|><%h%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%><||><||>65536`"

	' var_Chart.Label(1048576) = "<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(1048576) = `<|><%nn%><|><%h%>:<%nn%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`"

	' var_Chart.Label(16777216) = "<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(16777216) = `<|><%ss%><|><%nn%>:<%ss%><|><%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_d3%>, <%loc_m3%> <%d%>, '<%yy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%><|><%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`"

	' var_Chart.LabelToolTip(16) = "<%loc_mmmm%>/<%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(16) = `<%loc_mmmm%>/<%yyyy%>`"

	' var_Chart.LabelToolTip(256) = "<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(256) = `<%loc_mmmm%> <%d%>, <%yyyy%> <%ww%>`"

	' var_Chart.LabelToolTip(4096) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(4096) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%>`"

	' var_Chart.LabelToolTip(65536) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(65536) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%> <%AM/PM%>`"

	' var_Chart.LabelToolTip(1048576) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(1048576) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%> <%AM/PM%>`"

	' var_Chart.LabelToolTip(16777216) = "<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(16777216) = `<%loc_dddd%>, <%loc_mmmm%> <%d%>, <%yyyy%> <%h%>:<%nn%>:<%ss%> <%AM/PM%>`"

var_Chart1 = oGantt.Chart
	' var_Chart1.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart1"
	oGantt.TemplateDef = var_Chart1
	oGantt.Template = "var_Chart1.PaneWidth(False) = 0"

	var_Chart1.FirstVisibleDate = {01/01/2001}
	var_Chart1.LevelCount = 2
	var_Chart1.UnitScale = 4096
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as P
Dim var_Level as local
Dim var_Level1 as local
Dim var_Level2 as local
Dim var_Level3 as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	' var_Chart.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.FirstVisibleDate = {01/01/2001}
	var_Chart.LevelCount = 4
	' var_Chart.Level(0).Label = 4096
	var_Level = var_Chart.Level(0)
	oGantt.TemplateDef = "dim var_Level"
	oGantt.TemplateDef = var_Level
	oGantt.Template = "var_Level.Label = 4096"

	' var_Chart.Level(1).Label = 65536
	var_Level1 = var_Chart.Level(1)
	oGantt.TemplateDef = "dim var_Level1"
	oGantt.TemplateDef = var_Level1
	oGantt.Template = "var_Level1.Label = 65536"

	' var_Chart.Level(2).Label = 1048576
	var_Level2 = var_Chart.Level(2)
	oGantt.TemplateDef = "dim var_Level2"
	oGantt.TemplateDef = var_Level2
	oGantt.Template = "var_Level2.Label = 1048576"

	var_Level3 = var_Chart.Level(3)
		var_Level3.Count = 15
		var_Level3.Label = 16777216
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Column as local
Dim var_Column1 as local
Dim var_Column2 as local
Dim var_Column3 as local
Dim var_Column4 as local
Dim var_Column5 as local
Dim var_Column6 as local
Dim var_Column7 as local

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.VisualAppearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BI0IQAAYAQGKIYBkAKBQAGaAoDDUOQzQwAAxDKKUEwsACEIrjKCYVgOHYYRrIMYgBCMJhLEoaZLhEZRQiqDYtRDFQBSDDcPw/EaRZohGaYJgEgI=")
oGantt.Template = "Background(32) = 16777216" // oGantt.Background(32) = 16777216
' oGantt.Columns.Add("S").Width = 32
var_Column = oGantt.Columns.Add("S")
oGantt.TemplateDef = "dim var_Column"
oGantt.TemplateDef = var_Column
oGantt.Template = "var_Column.Width = 32"

' oGantt.Columns.Add("Level 1").LevelKey = 1
var_Column1 = oGantt.Columns.Add("Level 1")
oGantt.TemplateDef = "dim var_Column1"
oGantt.TemplateDef = var_Column1
oGantt.Template = "var_Column1.LevelKey = 1"

' oGantt.Columns.Add("Level 2").LevelKey = 1
var_Column2 = oGantt.Columns.Add("Level 2")
oGantt.TemplateDef = "dim var_Column2"
oGantt.TemplateDef = var_Column2
oGantt.Template = "var_Column2.LevelKey = 1"

' oGantt.Columns.Add("Level 3").LevelKey = 1
var_Column3 = oGantt.Columns.Add("Level 3")
oGantt.TemplateDef = "dim var_Column3"
oGantt.TemplateDef = var_Column3
oGantt.Template = "var_Column3.LevelKey = 1"

' oGantt.Columns.Add("E1").Width = 32
var_Column4 = oGantt.Columns.Add("E1")
oGantt.TemplateDef = "dim var_Column4"
oGantt.TemplateDef = var_Column4
oGantt.Template = "var_Column4.Width = 32"

' oGantt.Columns.Add("E2").Width = 32
var_Column5 = oGantt.Columns.Add("E2")
oGantt.TemplateDef = "dim var_Column5"
oGantt.TemplateDef = var_Column5
oGantt.Template = "var_Column5.Width = 32"

' oGantt.Columns.Add("E3").Width = 32
var_Column6 = oGantt.Columns.Add("E3")
oGantt.TemplateDef = "dim var_Column6"
oGantt.TemplateDef = var_Column6
oGantt.Template = "var_Column6.Width = 32"

' oGantt.Columns.Add("E4").Width = 32
var_Column7 = oGantt.Columns.Add("E4")
oGantt.TemplateDef = "dim var_Column7"
oGantt.TemplateDef = var_Column7
oGantt.Template = "var_Column7.Width = 32"

Dim oGantt as P
Dim var_Column as local

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Template = "HTMLPicture(`pic1`) = `c:\exontrol\images\card.png`" // oGantt.HTMLPicture("pic1") = "c:\exontrol\images\card.png"
oGantt.HeaderHeight = 48
' oGantt.Columns.Add("ColumnName").HTMLCaption = "<b>HTML</b> Column <img>pic1</img> Picture"
var_Column = oGantt.Columns.Add("ColumnName")
oGantt.TemplateDef = "dim var_Column"
oGantt.TemplateDef = var_Column
oGantt.Template = "var_Column.HTMLCaption = `<b>HTML</b> Column <img>pic1</img> Picture`"

Dim h as N
Dim hC as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	hC = var_Items.InsertItem(h,,"Child 1")
	' oGantt.Chart.ItemBackColor(hC) = 255
	var_Chart = oGantt.Chart
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "Me.Chart.ItemBackColor(hC) = 255"

	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim hC as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
oGantt.VisualAppearance.Add(3,"CP:2 2 2 -2 -2")
oGantt.Columns.Add("Default")
oGantt.SelBackMode = 1
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	hC = var_Items.InsertItem(h,,"Child 1")
	' var_Items.ItemBackColor(hC) = 33554176
	oGantt.TemplateDef = "dim var_Items,hC"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = hC
	oGantt.Template = "var_Items.ItemBackColor(hC) = 33554176"

	' oGantt.Chart.ItemBackColor(hC) = 50396928
	var_Chart = oGantt.Chart
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "Me.Chart.ItemBackColor(hC) = 50396928"

	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim hC as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	hC = var_Items.InsertItem(h,,"Child 1")
	' var_Items.ItemBackColor(hC) = 16777216
	oGantt.TemplateDef = "dim var_Items,hC"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = hC
	oGantt.Template = "var_Items.ItemBackColor(hC) = 16777216"

	' oGantt.Chart.ItemBackColor(hC) = 16777216
	var_Chart = oGantt.Chart
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "Me.Chart.ItemBackColor(hC) = 16777216"

	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim hC as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	hC = var_Items.InsertItem(h,,"Child 1")
	' var_Items.ItemBackColor(hC) = 255
	oGantt.TemplateDef = "dim var_Items,hC"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = hC
	oGantt.Template = "var_Items.ItemBackColor(hC) = 255"

	' oGantt.Chart.ItemBackColor(hC) = 65535
	var_Chart = oGantt.Chart
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "Me.Chart.ItemBackColor(hC) = 65535"

	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

Dim h as N
Dim hC as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Default")
var_Items = oGantt.Items
	h = var_Items.AddItem("Root")
	hC = var_Items.InsertItem(h,,"Child 1")
	' var_Items.ItemBackColor(hC) = 255
	oGantt.TemplateDef = "dim var_Items,hC"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = hC
	oGantt.Template = "var_Items.ItemBackColor(hC) = 255"

	' oGantt.Chart.ItemBackColor(hC) = 255
	var_Chart = oGantt.Chart
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "Me.Chart.ItemBackColor(hC) = 255"

	var_Items.InsertItem(h,,"Child 2")
	' var_Items.ExpandItem(h) = .t.
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ExpandItem(h) = True"

' Occurs when the user moves the mouse.
function MouseMove as v (Button  as  N,Shift  as  N,X  as  OLE::Exontrol.Gantt.1::OLE_XPOS_PIXELS,Y  as  OLE::Exontrol.Gantt.1::OLE_YPOS_PIXELS)
	oGantt = topparent:CONTROL_ACTIVEX1.activex
	oGantt.ShowToolTip(oGantt.Chart.BarFromPoint(-1,-1),"","8","8")
end function

Dim h as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Columns.Add("Def")
var_Chart = oGantt.Chart
	' var_Chart.PaneWidth(.f.) = 64
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 64"

	var_Chart.LevelCount = 2
	var_Chart.FirstVisibleDate = {01/01/2010}
var_Items = oGantt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",{01/02/2010},{01/05/2010},"A","A")
	var_Items.AddBar(h,"Task",{01/05/2010},{01/08/2010},"B","B")
	var_Items.AddBar(h,"Task",{01/08/2010},{01/11/2010},"C","C")
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.LinesAtRoot = -1
oGantt.Columns.Add("Items")
var_Items = oGantt.Items
	var_Items.AddItem("A")
	var_Items.AddItem("B")
	var_Items.InsertItem(var_Items.AddItem("C"),"","D")
	var_Items.SetParent(var_Items.FindItem("D",0),var_Items.FindItem("A",0))
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.LinesAtRoot = -1
oGantt.Columns.Add("Items")
var_Items = oGantt.Items
	var_Items.AddItem("A")
	var_Items.AddItem("B")
	var_Items.InsertItem(var_Items.AddItem("C"),"","D")
	var_Items.SetParent(var_Items.FindItem("D",0),0)
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as P
Dim var_Level as P
Dim var_Level1 as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Font.Name = "Arial Unicode MS"
oGantt.HeaderHeight = 36
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {05/30/2010}
	' var_Chart.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 0"

	var_Chart.FirstWeekDay = 1
	var_Chart.UnitWidth = 36
	var_Chart.LevelCount = 2
	var_Level = var_Chart.Level(0)
		var_Level.Label = "<b><%loc_mmmm%></b> <%yyyy%><br><%loc_sdate%><r> <%ww%> "
		var_Level.ToolTip = var_Level.Label
		var_Level.Unit = 256
	var_Level1 = var_Chart.Level(1)
		var_Level1.Label = "<%loc_ddd%><br><%d%>"
		var_Level1.ToolTip = var_Level1.Label
	var_Chart.ToolTip = "<%loc_ldate%>"
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.StartColor = 16777215
		var_Bar.EndColor = var_Bar.Color
oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
	h = var_Items.AddItem("W/h Gradient")
	var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
	' var_Items.ItemBar(h,"",17) = 8291
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,17) = 8291"

	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.StartColor = 16777215
		var_Bar.EndColor = var_Bar.StartColor
		var_Bar.Height = 17
oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
	h = var_Items.AddItem("W/h Gradient")
	var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
	' var_Items.ItemBar(h,"",17) = 227
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,17) = 227"

	h = var_Items.AddItem("W/h Color")
	var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
	' var_Items.ItemBar(h,"",17) = 227
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,17) = 227"

	' var_Items.ItemBar(h,"",513) = 255
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,513) = 255"

	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.StartColor = 16777215
		var_Bar.EndColor = var_Bar.StartColor
		var_Bar.Height = 17
oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
	h = var_Items.AddItem("W/h Gradient")
	var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
	' var_Items.ItemBar(h,"",17) = 227
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,17) = 227"

	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.StartColor = 16777215
		var_Bar.EndColor = var_Bar.Color
oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
	h = var_Items.AddItem("W/h Gradient")
	var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
	' var_Items.ItemBar(h,"",17) = 99
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,17) = 99"

	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
	h = var_Items.AddItem("W/h Border")
	var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
	' var_Items.ItemBar(h,"",17) = 4099
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,17) = 4099"

	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
	h = var_Items.AddItem("W/h Shadow")
	var_Items.AddBar(h,"Task",{01/04/2010},{01/09/2010},"")
	' var_Items.ItemBar(h,"",17) = 8195
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.ItemBar(h,``,17) = 8195"

	var_Items.AddBar(var_Items.AddItem("Original"),"Task",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Bar as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Chart.Bars.Copy("Task","TaskO")
	var_Bar = var_Chart.Bars.Item("Task")
		var_Bar.Pattern = 99 'exPatternGradientVBox + exPatternBox + exPatternShadow
		var_Bar.StartColor = 16777215
		var_Bar.EndColor = var_Bar.Color
oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Original"),"TaskO",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Pattern Gradient"),"Task",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Original"),"TaskO",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Bar as local
Dim var_Bar1 as local
Dim var_Bar10 as P
Dim var_Bar11 as P
Dim var_Bar12 as P
Dim var_Bar13 as P
Dim var_Bar14 as P
Dim var_Bar2 as local
Dim var_Bar3 as local
Dim var_Bar4 as local
Dim var_Bar5 as P
Dim var_Bar6 as P
Dim var_Bar7 as P
Dim var_Bar8 as P
Dim var_Bar9 as P
Dim var_Bars as P
Dim var_Chart as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.FirstVisibleDate = {12/31/2009}
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 96
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 96"

	var_Bars = var_Chart.Bars
		' var_Bars.Add("Box").Pattern = 32
		var_Bar = var_Bars.Add("Box")
		oGantt.TemplateDef = "dim var_Bar"
		oGantt.TemplateDef = var_Bar
		oGantt.Template = "var_Bar.Pattern = 32"

		' var_Bars.Add("ThickBox").Pattern = 4128 'exPatternThickBox + exPatternBox
		var_Bar1 = var_Bars.Add("ThickBox")
		oGantt.TemplateDef = "dim var_Bar1"
		oGantt.TemplateDef = var_Bar1
		oGantt.Template = "var_Bar1.Pattern = 4128"

		' var_Bars.Add("DiagBox").Pattern = 4102 'exPatternThickBox + exPatternBDiagonal
		var_Bar2 = var_Bars.Add("DiagBox")
		oGantt.TemplateDef = "dim var_Bar2"
		oGantt.TemplateDef = var_Bar2
		oGantt.Template = "var_Bar2.Pattern = 4102"

		' var_Bars.Copy("Task","Shadow").Pattern = 8195 'exPatternFrameShadow + exPatternShadow
		var_Bar3 = var_Bars.Copy("Task","Shadow")
		oGantt.TemplateDef = "dim var_Bar3"
		oGantt.TemplateDef = var_Bar3
		oGantt.Template = "var_Bar3.Pattern = 8195"

		' var_Bars.Copy("Task","TShadow").Pattern = 12295 'exPatternFrameShadow + exPatternThickBox + exPatternDiagCross
		var_Bar4 = var_Bars.Copy("Task","TShadow")
		oGantt.TemplateDef = "dim var_Bar4"
		oGantt.TemplateDef = var_Bar4
		oGantt.Template = "var_Bar4.Pattern = 12295"

		var_Bar5 = var_Bars.Add("HGrad1")
			var_Bar5.Pattern = 32
			var_Bar5.StartColor = 16777215
			var_Bar5.EndColor = 16711680
		var_Bar6 = var_Bars.Add("HGrad2")
			var_Bar6.Pattern = 35 'exPatternBox + exPatternShadow
			var_Bar6.StartColor = 16777215
			var_Bar6.EndColor = 16711680
			var_Bar6.Color = 16711680
		var_Bar7 = var_Bars.Add("HGrad3")
			var_Bar7.Pattern = 163 'exPatternGradient3Colors + exPatternBox + exPatternShadow
			var_Bar7.StartColor = 16777215
			var_Bar7.EndColor = var_Bar7.StartColor
			var_Bar7.Color = 16711680
		var_Bar8 = var_Bars.Add("HGrad4")
			var_Bar8.Pattern = 4256 'exPatternThickBox + exPatternGradient3Colors + exPatternBox
			var_Bar8.StartColor = 16777215
			var_Bar8.EndColor = var_Bar8.StartColor
			var_Bar8.Color = 16711680
		var_Bar9 = var_Bars.Add("HGrad5")
			var_Bar9.Pattern = 8352 'exPatternFrameShadow + exPatternGradient3Colors + exPatternBox
			var_Bar9.StartColor = 65280
			var_Bar9.EndColor = 255
			var_Bar9.Color = 16711680
		var_Bar10 = var_Bars.Add("VGrad1")
			var_Bar10.Pattern = 96 'exPatternGradientVBox + exPatternBox
			var_Bar10.StartColor = 16777215
			var_Bar10.EndColor = 16711680
			var_Bar10.Height = 14
		var_Bar11 = var_Bars.Add("VGrad2")
			var_Bar11.Pattern = 99 'exPatternGradientVBox + exPatternBox + exPatternShadow
			var_Bar11.StartColor = 16777215
			var_Bar11.EndColor = 16711680
			var_Bar11.Color = 16711680
			var_Bar11.Height = 14
		var_Bar12 = var_Bars.Add("VGrad3")
			var_Bar12.Pattern = 227 'exPatternGradient3Colors + exPatternGradientVBox + exPatternBox + exPatternShadow
			var_Bar12.StartColor = 16777215
			var_Bar12.EndColor = var_Bar12.StartColor
			var_Bar12.Color = 16711680
			var_Bar12.Height = 14
		var_Bar13 = var_Bars.Add("VGrad4")
			var_Bar13.Pattern = 4320 'exPatternThickBox + exPatternGradient3Colors + exPatternGradientVBox + exPatternBox
			var_Bar13.StartColor = 16777215
			var_Bar13.EndColor = var_Bar13.StartColor
			var_Bar13.Color = 16711680
			var_Bar13.Height = -1
		var_Bar14 = var_Bars.Add("VGrad5")
			var_Bar14.Pattern = 8416 'exPatternFrameShadow + exPatternGradient3Colors + exPatternGradientVBox + exPatternBox
			var_Bar14.StartColor = 65280
			var_Bar14.EndColor = 255
			var_Bar14.Color = 16711680
			var_Bar14.Height = 14
oGantt.Columns.Add("Types")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Box"),"Box",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Thick Box"),"ThickBox",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Thick Box Diag"),"DiagBox",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Shadow"),"Shadow",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Thick Shadow"),"TShadow",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Solid Gradient"),"HGrad1",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Pattern Gradient"),"HGrad2",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Pattern Gradient 3 Colors"),"HGrad3",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Solid Gradient 3 Colors"),"HGrad4",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Gradient Shadow"),"HGrad5",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Solid Gradient"),"VGrad1",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Pattern Gradient"),"VGrad2",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Pattern Gradient 3 Colors"),"VGrad3",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Solid Gradient 3 Colors"),"VGrad4",{01/04/2010},{01/09/2010},"")
	var_Items.AddBar(var_Items.AddItem("Gradient Shadow"),"VGrad5",{01/04/2010},{01/09/2010},"")
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Bar as local
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
' oGantt.Chart.PaneWidth(.f.) = 48
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 48"

' oGantt.Chart.Bars.Copy("Task","TaskB").Pattern = 4099 'exPatternThickBox + exPatternShadow
var_Bar = oGantt.Chart.Bars.Copy("Task","TaskB")
oGantt.TemplateDef = "dim var_Bar"
oGantt.TemplateDef = var_Bar
oGantt.Template = "var_Bar.Pattern = 4099"

var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/05/2001},"")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"TaskB",{01/02/2001},{01/05/2001},"")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",{01/02/2001},{01/05/2001},"")
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Bar as P
Dim var_Bar1 as local
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
' oGantt.Chart.PaneWidth(.f.) = 48
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 48"

var_Bar = oGantt.Chart.Bars.Copy("Task","EBN")
	var_Bar.Color = 16777216
	var_Bar.Pattern = 8192
' oGantt.Chart.Bars.Copy("Task","EBN2").Color = 16777216
var_Bar1 = oGantt.Chart.Bars.Copy("Task","EBN2")
oGantt.TemplateDef = "dim var_Bar1"
oGantt.TemplateDef = var_Bar1
oGantt.Template = "var_Bar1.Color = 16777216"

var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"EBN2",{01/02/2001},{01/05/2001},"")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"EBN",{01/02/2001},{01/05/2001},"")
	var_Items.AddBar(var_Items.AddItem("Task 3"),"EBN2",{01/02/2001},{01/05/2001},"")
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
' oGantt.Chart.PaneWidth(.f.) = 48
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 48"

oGantt.Chart.Bars.Item("Task").Pattern = 8195 'exPatternFrameShadow + exPatternShadow
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",{01/02/2001},{01/05/2001},"")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",{01/02/2001},{01/05/2001},"")
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Bar as P
Dim var_Bar1 as P
Dim var_Chart as local
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
' oGantt.Chart.PaneWidth(.f.) = 48
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(False) = 48"

var_Bar = oGantt.Chart.Bars.Add("V")
	var_Bar.Color = 255
	var_Bar.StartColor = 65280
	var_Bar.EndColor = var_Bar.StartColor
	var_Bar.Pattern = 224 'exPatternGradient3Colors + exPatternGradientVBox + exPatternBox
	var_Bar.Height = -1
var_Bar1 = oGantt.Chart.Bars.Add("H")
	var_Bar1.Color = 255
	var_Bar1.StartColor = 65280
	var_Bar1.EndColor = var_Bar1.StartColor
	var_Bar1.Pattern = 160 'exPatternGradient3Colors + exPatternBox
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Task 1"),"V",{01/02/2001},{01/05/2001},"")
	var_Items.AddBar(var_Items.AddItem("Task 2"),"H",{01/02/2001},{01/05/2001},"")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Bar as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Columns.Add("Task")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Bar = oGantt.Chart.Bars.Item("Task")
	var_Bar.Color = 255
	var_Bar.StartColor = 65280
	var_Bar.EndColor = 65535
	var_Bar.Pattern = 96 'exPatternGradientVBox + exPatternBox
var_Items = oGantt.Items
	h = var_Items.AddItem("Task")
	var_Items.AddBar(h,"Task",{01/02/2001},{01/05/2001},"")

Dim oGantt as P
Dim var_Bar as local
Dim var_Bar1 as local
Dim var_Bar2 as P
Dim var_Bars as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Bars = oGantt.Chart.Bars
	var_Bars.AddShapeCorner(12345,1)
	var_Bars.AddShapeCorner(12346,2)
	' var_Bars.Copy("Milestone","M1").StartShape = 12345 '3020 + exShapeIconVBar + exShapeIconRight
	var_Bar = var_Bars.Copy("Milestone","M1")
	oGantt.TemplateDef = "dim var_Bar"
	oGantt.TemplateDef = var_Bar
	oGantt.Template = "var_Bar.StartShape = 12345"

	' var_Bars.Copy("Milestone","M2").StartShape = 12346 '3020 + exShapeIconSquare + exShapeIconRight
	var_Bar1 = var_Bars.Copy("Milestone","M2")
	oGantt.TemplateDef = "dim var_Bar1"
	oGantt.TemplateDef = var_Bar1
	oGantt.Template = "var_Bar1.StartShape = 12346"

	var_Bar2 = var_Bars.Copy("Milestone","MP")
		var_Bar2.StartShape = 20
		var_Bar2.StartColor = 255
oGantt.Columns.Add("Column")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Default"),"Milestone",{01/02/2001},{01/02/2001})
	var_Items.AddBar(var_Items.AddItem("Predefined"),"MP",{01/03/2001},{01/03/2001})
	var_Items.AddBar(var_Items.AddItem("Custom 1"),"M1",{01/04/2001},{01/04/2001})
	var_Items.AddBar(var_Items.AddItem("Custom 2"),"M2",{01/05/2001},{01/05/2001})
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Bar as local
Dim var_Bars as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oGantt.Chart.FirstVisibleDate = {01/01/2001}
var_Bars = oGantt.Chart.Bars
	var_Bars.AddShapeCorner(12345,1)
	' var_Bars.Item("Milestone").StartShape = 12345 '3020 + exShapeIconVBar + exShapeIconRight
	var_Bar = var_Bars.Item("Milestone")
	oGantt.TemplateDef = "dim var_Bar"
	oGantt.TemplateDef = var_Bar
	oGantt.Template = "var_Bar.StartShape = 12345"

oGantt.Columns.Add("Column")
var_Items = oGantt.Items
	var_Items.AddBar(var_Items.AddItem("Item 1"),"Milestone",{01/02/2001},{01/02/2001})

Dim oGantt as P
Dim var_Chart as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 0"

	' var_Chart.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`"

	' var_Chart.Label(4096) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`"

	' var_Chart.LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`"

	' var_Chart.LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`"

	var_Chart.FirstWeekDay = 1
	var_Chart.MonthNames = "gennaio febbraio marzo aprile maggio giugno luglio agosto settembre ottobre novembre dicembre"
	var_Chart.WeekDays = "domenica lunedì martedì mercoledì giovedì venerdì sabato"
	var_Chart.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
	var_Chart.UnitScale = 4096
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 0"

	' var_Chart.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`"

	' var_Chart.Label(4096) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`"

	' var_Chart.LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`"

	' var_Chart.LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`"

	var_Chart.FirstWeekDay = 1
	var_Chart.MonthNames = "januari februari maart april mei juni juli augusts september oktober november december"
	var_Chart.WeekDays = "zondag maandag dinsdag woensdag donderdag vrijdag zaterdag"
	var_Chart.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
	var_Chart.UnitScale = 4096
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 0"

	' var_Chart.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%>.<%mmmm%> <%yyyy%><r><%ww%><||><||>256`"

	' var_Chart.Label(4096) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%>.<%m3%> '<%yy%><|><%dddd%> <%d%>.<%mmmm%> <%yyyy%><||><||>4096`"

	' var_Chart.LabelToolTip(256) = "<%d%>.<%mmmm%> <%yyyy%> <%ww%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(256) = `<%d%>.<%mmmm%> <%yyyy%> <%ww%>`"

	' var_Chart.LabelToolTip(4096) = "<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(4096) = `<%dddd%>, <%d%>.<%mmmm%> <%yyyy%>`"

	var_Chart.FirstWeekDay = 1
	var_Chart.MonthNames = "Januar Februar März April Mai Juni Juli August September Oktober November Dezember"
	var_Chart.WeekDays = "Sonntag Montag Dienstag Mittwoch Donnerstag Freitag Samstag"
	var_Chart.ToolTip = "<%dddd%>,<%d%>.<%mmmm%> <%yyyy%>"
	var_Chart.UnitScale = 4096
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Chart = oGantt.Chart
	var_Chart.LevelCount = 2
	' var_Chart.PaneWidth(.f.) = 0
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.PaneWidth(False) = 0"

	' var_Chart.Label(256) = "<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(256) = `<|><%ww%><|><%d%> <%m3%> '<%yy%><r><%ww%><|><%d%> <%mmmm%> <%yyyy%><r><%ww%><||><||>256`"

	' var_Chart.Label(4096) = "<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.Label(4096) = `<|><%d1%><|><%d2%><|><%d3%><|><%dddd%><|><%d3%> <%d%> <%m3%> '<%yy%><|><%dddd%> <%d%> <%mmmm%> <%yyyy%><||><||>4096`"

	' var_Chart.LabelToolTip(256) = "<%d%> <%mmmm%> <%yyyy%> <%ww%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(256) = `<%d%> <%mmmm%> <%yyyy%> <%ww%>`"

	' var_Chart.LabelToolTip(4096) = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
	oGantt.TemplateDef = "dim var_Chart"
	oGantt.TemplateDef = var_Chart
	oGantt.Template = "var_Chart.LabelToolTip(4096) = `<%dddd%> <%d%> <%mmmm%> <%yyyy%>`"

	var_Chart.FirstWeekDay = 1
	var_Chart.MonthNames = "janvier février mars avril mai juin juillet août septembre octobre novembre décembre"
	var_Chart.WeekDays = "dimanche lundi mardi mercredi jeudi vendredi samedi"
	var_Chart.ToolTip = "<%dddd%> <%d%> <%mmmm%> <%yyyy%>"
	var_Chart.UnitScale = 4096
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Chart as local
Dim var_Column as P
Dim var_Column1 as P
Dim var_Columns as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

var_Columns = oGantt.Columns
	var_Columns.Add("Car")
	var_Columns.Add("Equipment")
var_Items = oGantt.Items
	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag`"

	' var_Items.CellCaption(var_Items.AddItem("Toyota"),1) = "Air Bag,Air condition"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(`Toyota`),1) = `Air Bag,Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Ford"),1) = "Air condition"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(`Ford`),1) = `Air condition`"

	' var_Items.CellCaption(var_Items.AddItem("Nissan"),1) = "Air Bag,ABS,ESP"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(`Nissan`),1) = `Air Bag,ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "Air Bag, ABS,ESP"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `Air Bag, ABS,ESP`"

	' var_Items.CellCaption(var_Items.AddItem("Mazda"),1) = "ABS,ESP"
	oGantt.TemplateDef = "dim var_Items"
	oGantt.TemplateDef = var_Items
	oGantt.Template = "var_Items.CellCaption(AddItem(`Mazda`),1) = `ABS,ESP`"

var_Column = oGantt.Columns.Item("Car")
	var_Column.FilterType = 240
	var_Column.Filter = "Mazda"
var_Column1 = oGantt.Columns.Item("Equipment")
	var_Column1.FilterType = 3
	var_Column1.Filter = "*ABS*|*ESP*"
oGantt.ApplyFilter()
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Column = oGantt.Columns.Add("Value")
	var_Column.Width = 24
var_Column1 = oGantt.Columns.Add("SWITCH - statment")
	var_Column1.ComputedField = "%0 switch ('not found', 1,2,3,4,5,7,8,9,11,13,14)"
	var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oGantt.Items
	var_Items.AddItem(0)
	var_Items.AddItem(1)
	var_Items.AddItem(2)
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Column = oGantt.Columns.Add("Value")
	var_Column.Width = 24
var_Column1 = oGantt.Columns.Add("IN - statment")
	var_Column1.ComputedField = "%0 in (1,2,3,4,5,7,8,9,11,13,14) ? 'found' : ''"
	var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oGantt.Items
	var_Items.AddItem(0)
	var_Items.AddItem(1)
	var_Items.AddItem(2)
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Column = oGantt.Columns.Add("Value")
	var_Column.Width = 24
var_Column1 = oGantt.Columns.Add("CASE - statment")
	var_Column1.ComputedField = "%0 case (default:'not found';1:%0;2:2*%0;3:3*%0;4:4*%0;5:5*%0;7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
	var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oGantt.Items
	var_Items.AddItem(0)
	var_Items.AddItem(1)
	var_Items.AddItem(2)
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Column as P
Dim var_Column1 as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
var_Column = oGantt.Columns.Add("Value")
	var_Column.Width = 24
var_Column1 = oGantt.Columns.Add("CASE - statment")
	var_Column1.ComputedField = "%0 case (default:'not found';1:'One';2:'Two';3:'Three';4:'Four';5:'Five';7:'Seven';8:'Eight';9:'Nine';11:'Eleven';13:'Thirtheen';14:'Fourtheen')"
	var_Column1.ToolTip = var_Column1.ComputedField
var_Items = oGantt.Items
	var_Items.AddItem(0)
	var_Items.AddItem(1)
	var_Items.AddItem(2)
oGantt.EndUpdate()

Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.FilterBarPromptVisible = .t.
oGantt.FilterBarCaption = "This is a bit of text being displayed in the filter bar."
oGantt.Columns.Add("")
var_Items = oGantt.Items
	var_Items.AddItem("Item 1")
	var_Items.AddItem("Item 2")
	var_Items.AddItem("Item 3")
oGantt.EndUpdate()

Dim h as N
Dim oGantt as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
oGantt.Columns.Add("")
var_Items = oGantt.Items
	h = var_Items.AddItem("")
	' var_Items.CellCaption(h,0) = var_Items.VisibleItemCount
	oGantt.TemplateDef = "dim var_Items,h"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h
	oGantt.Template = "var_Items.CellCaption(h,0) = VisibleItemCount"

oGantt.EndUpdate()

Dim h0 as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.ColumnAutoResize = .t.
oGantt.ContinueColumnScroll = .f.
oGantt.MarkSearchColumn = .f.
oGantt.SearchColumnIndex = 1
oGantt.FilterBarPromptVisible = .t.
oGantt.FilterBarPromptType = 12801 'exFilterPromptWords + exFilterPromptContainsAll
oGantt.FilterBarPromptPattern = "london robert"
oGantt.FilterBarCaption = "<r>Found: ... "
var_Columns = oGantt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oGantt.TemplateDef = "dim var_Column"
	oGantt.TemplateDef = var_Column
	oGantt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oGantt.TemplateDef = "dim var_Column1"
	oGantt.TemplateDef = var_Column1
	oGantt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oGantt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "Seattle"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellCaption(h0,1) = "Vice President, Sales"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Vice President, Sales`"

	' var_Items.CellCaption(h0,2) = "Tacoma"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "Kirkland"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "Redmond"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellCaption(h0,1) = "Sales Manager"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Manager`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellCaption(h0,1) = "Inside Sales Coordinator"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellCaption(h0,2) = "Seattle"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

oGantt.EndUpdate()

Dim h0 as N
Dim oGantt as P
Dim var_Chart as local
Dim var_Column as local
Dim var_Column1 as local
Dim var_Columns as P
Dim var_Items as P

oGantt = topparent:CONTROL_ACTIVEX1.activex
oGantt.BeginUpdate()
' oGantt.Chart.PaneWidth(.t.) = 0
var_Chart = oGantt.Chart
oGantt.TemplateDef = "dim var_Chart"
oGantt.TemplateDef = var_Chart
oGantt.Template = "var_Chart.PaneWidth(True) = 0"

oGantt.ColumnAutoResize = .t.
oGantt.ContinueColumnScroll = .f.
oGantt.MarkSearchColumn = .f.
oGantt.SearchColumnIndex = 1
oGantt.FilterBarPromptVisible = .t.
oGantt.FilterBarPromptType = 16
oGantt.FilterBarPromptPattern = "lon* seat*"
var_Columns = oGantt.Columns
	' var_Columns.Add("Name").Width = 96
	var_Column = var_Columns.Add("Name")
	oGantt.TemplateDef = "dim var_Column"
	oGantt.TemplateDef = var_Column
	oGantt.Template = "var_Column.Width = 96"

	' var_Columns.Add("Title").Width = 96
	var_Column1 = var_Columns.Add("Title")
	oGantt.TemplateDef = "dim var_Column1"
	oGantt.TemplateDef = var_Column1
	oGantt.Template = "var_Column1.Width = 96"

	var_Columns.Add("City")
var_Items = oGantt.Items
	h0 = var_Items.AddItem("Nancy Davolio")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "Seattle"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Andrew Fuller")
	' var_Items.CellCaption(h0,1) = "Vice President, Sales"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Vice President, Sales`"

	' var_Items.CellCaption(h0,2) = "Tacoma"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Tacoma`"

	' var_Items.SelectItem(h0) = .t.
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.SelectItem(h0) = True"

	h0 = var_Items.AddItem("Janet Leverling")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "Kirkland"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Kirkland`"

	h0 = var_Items.AddItem("Margaret Peacock")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "Redmond"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Redmond`"

	h0 = var_Items.AddItem("Steven Buchanan")
	' var_Items.CellCaption(h0,1) = "Sales Manager"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Manager`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

	h0 = var_Items.AddItem("Michael Suyama")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

	h0 = var_Items.AddItem("Robert King")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

	h0 = var_Items.AddItem("Laura Callahan")
	' var_Items.CellCaption(h0,1) = "Inside Sales Coordinator"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Inside Sales Coordinator`"

	' var_Items.CellCaption(h0,2) = "Seattle"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `Seattle`"

	h0 = var_Items.AddItem("Anne Dodsworth")
	' var_Items.CellCaption(h0,1) = "Sales Representative"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,1) = `Sales Representative`"

	' var_Items.CellCaption(h0,2) = "London"
	oGantt.TemplateDef = "dim var_Items,h0"
	oGantt.TemplateDef = var_Items
	oGantt.TemplateDef = h0
	oGantt.Template = "var_Items.CellCaption(h0,2) = `London`"

oGantt.EndUpdate()